home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MAIN.DIR / Internal_87.ls < prev    next >
Encoding:
Text File  |  2004-07-12  |  472 b   |  17 lines
  1. on animateSprites
  2.   ticksList = [3, 5, 7, 6, 9]
  3.   cyclesList = [4, 2, 4, 2]
  4.   listPointer = 1
  5.   killActorList()
  6.   repeat with x = 1 to 38
  7.     if listPointer <= count(ticksList) then
  8.       if the scoreColor of sprite x = 4 then
  9.         add(the actorList, new(script("Animated Sprite Object"), x, getAt(ticksList, listPointer), getAt(cyclesList, listPointer)))
  10.         listPointer = listPointer + 1
  11.       end if
  12.       next repeat
  13.     end if
  14.     exit repeat
  15.   end repeat
  16. end
  17.